home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fritz: All Fritz
/
All Fritz.zip
/
All Fritz
/
FILES
/
PROGSCAL
/
VPASCAL.LZH
/
TESTCASE
< prev
next >
Wrap
Text File
|
1985-08-08
|
512b
|
22 lines
PROGRAM TESTCASE; {use this to test that case indexes out of range are caught}
VAR
CI:INTEGER;
BEGIN
REPEAT
WRITE('enter a label: ');
READLN(CI);
CASE CI OF
0: WRITELN('0');
1: WRITELN('1');
2: WRITELN('2');
3: WRITELN('3');
7: WRITELN('7');
8: WRITELN('8');
9: WRITELN('9');
10: WRITELN('10');
END;
UNTIL CI = 99;
END.